MacFormat 1997 April/macformat-049.iso/mac/Demos/Print Artist Demo/PA12-Mac.Dxr/00148.ls

Text File | 1996-10-03 | 299 b | 15 lines

on exitFrame
  global loadNext, whatSpeed, whatFactor, frameLoop, waitTime1
  if frameLoop = 0 then
    set whatSpeed to whatSpeed + waitTime1
  end if
  if the timer < whatSpeed then
    set frameLoop to 1
    go(the frame)
  else
    set frameLoop to 0
    resetTimer()
    go(#next)
  end if
end